Interactive plot

setwd("C:/Users/Paturi/DATA422Lab/Project")

library(knitr)
library(kableExtra)
library(flexdashboard)
library(tidyverse)

## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --

## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.5     v dplyr   1.0.7
## v tidyr   1.1.4     v stringr 1.4.0
## v readr   2.0.2     v forcats 0.5.1

## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter()     masks stats::filter()
## x dplyr::group_rows() masks kableExtra::group_rows()
## x dplyr::lag()        masks stats::lag()

library(plotly)

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(crosstalk)
library(ggthemes)
knitr::opts_chunk$set(echo = FALSE)

## New names:
## * `` -> ...1

## Rows: 228 Columns: 14

## -- Column specification --------------------------------------------------------
## Delimiter: ","
## chr (5): country_code, country_name, region, first_vaccine_date, last_update...
## dbl (9): ...1, total_cases, total_deaths, total_vaccinations, vaccinated_1do...

## 
## i Use `spec()` to retrieve the full column specification for this data.
## i Specify the column types or set `show_col_types = FALSE` to quiet this message.

Region

Africa

Americas

Eastern Mediterranean

Europe

South-East Asia

Western Pacific

Country

Stringency Index

Total vaccinations per 100